﻿Imports System.Data.SqlClient


Public Class Dcostos
    Inherits Conexion
    Dim cmd As New SqlCommand

    Public Function llenarcombocostostipo2(ByVal LISTA As String) As DataTable
        Try
            conectado()

            cmd = New SqlCommand("sp_costostipo2")
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Connection = cnn

            cmd.Parameters.AddWithValue("@F6", LISTA)

            Dim DA As New SqlDataAdapter(cmd)
            Dim TABLA As New DataTable
            TABLA.Clear()
            DA.Fill(TABLA)
            Return TABLA
            Return Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
            Return Nothing
        Finally
            desconectado()
        End Try
    End Function

End Class

